Wanneer u de volgende programmacode in een klassenmodule plaatst, wordt de lidvariabele dblBalance toegankelijk voor alle gebruikers van de klasse in het project. Elke gebruiker van de klasse kan de waarde ophalen. Alleen programmacode in het project kan echter een waarde aan die variabele toekennen.
Private dblBalance As Double
Public Property Get Balance() As Double
Balance = dblBalance
End Property
Friend Property Let Balance(dblNewBalance As Double)
dblBalance = dblNewBalance
End Property